home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / STATMENT.SAB < prev    next >
Text File  |  1991-04-30  |  848b  |  36 lines
  1. LABEL START
  2.   cls ; display cp.dis
  3.   write "STATMENT.SAB" AT 2,36
  4.   CLEAR V OP
  5.     fillin op using "Is This A (R)ent, (S)ecurity Or (B)oth Billing  " at 12,16
  6.     if op = "r" then ; goto rbill ; endif
  7.     if op = "s" then ; goto sbill ; endif
  8.     if op = "b" then ; goto sdrbill ; endif
  9.       goto opnd
  10. label rbill
  11.     cls
  12.     DISPLAY CP.DIS
  13.     WRITE "STATMENT.SAB" AT 2,36
  14.     set v op to ""
  15.     fillin op using "Is This A (C)urrent Or (O)ld Billing  " at 12,21
  16.       if op = "c" then ; goto cur ; endif
  17.       if op = "o" then ; goto old ; endif
  18.         beep ; beep
  19.         goto rbill
  20. label cur
  21.       run state.sab
  22.       goto start
  23.     label old
  24.       run generold.sab
  25.       goto start
  26. label sbill
  27.     run sdbill.sab
  28.     goto start
  29. label sdrbill
  30.     run sandrent.sab
  31.     goto start
  32. LABEL OPND
  33.   cls
  34.   return
  35.  
  36.